library FRMLIB2;

uses
  SysUtils,
  Classes,
  subFrm in 'subFrm.pas' {SubForm},
  MainFrm in 'MainFrm.pas' {MainForm};


Procedure ShowSubForm (parent: TMainForm); 
                                                                      export; stdcall;
begin
  SubForm:=TSubForm.Create(nil);  
  SubForm.SetMainForm(parent);    
  SubForm.ShowModal();              
  SubForm.Free;                          
end;


exports
      ShowSubForm index 1;

begin
end.
